home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Online / SpeakFreely / src / libdes / t / test
Text File  |  2000-05-18  |  531b  |  28 lines
  1. #!./perl
  2.  
  3. BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)); }
  4.  
  5. use DES;
  6.  
  7. $key='00000000';
  8. $ks=DES::set_key($key);
  9. @a=split(//,$ks);
  10. foreach (@a) { printf "%02x-",ord($_); }
  11. print "\n";
  12.  
  13.  
  14. $key=DES::random_key();
  15. print "($_)\n";
  16. @a=split(//,$key);
  17. foreach (@a) { printf "%02x-",ord($_); }
  18. print "\n";
  19. $str="this is and again into the breach";
  20. ($k1,$k2)=DES::string_to_2keys($str);
  21. @a=split(//,$k1);
  22. foreach (@a) { printf "%02x-",ord($_); }
  23. print "\n";
  24. @a=split(//,$k2);
  25. foreach (@a) { printf "%02x-",ord($_); }
  26. print "\n";
  27.  
  28.